home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Begin VB.Form Form2
- BorderStyle = 1 'Fixed Single
- Caption = "Z Axis"
- ClientHeight = 2160
- ClientLeft = 45
- ClientTop = 330
- ClientWidth = 1350
- Icon = "Form2.frx":0000
- LinkTopic = "Form2"
- MaxButton = 0 'False
- MinButton = 0 'False
- Picture = "Form2.frx":08CA
- ScaleHeight = 2160
- ScaleWidth = 1350
- StartUpPosition = 2 'CenterScreen
- Begin VB.CommandButton Command1
- Caption = "Start"
- Height = 375
- Left = 0
- TabIndex = 0
- Top = 1800
- Width = 1335
- End
- Begin VB.Timer Timer1
- Enabled = 0 'False
- Interval = 100
- Left = 0
- Top = 240
- End
- Begin VB.Timer Timer2
- Enabled = 0 'False
- Interval = 100
- Left = 480
- Top = 240
- End
- Begin VB.CommandButton Command2
- Caption = "Return"
- Height = 375
- Left = 0
- TabIndex = 1
- Top = 1800
- Width = 1335
- End
- Begin VB.Label Label1
- BackStyle = 0 'Transparent
- Caption = "C"
- BeginProperty Font
- Name = "Tahoma"
- Size = 72
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H00808080&
- Height = 1575
- Left = 0
- TabIndex = 2
- Top = 0
- Width = 1215
- End
- Attribute VB_Name = "Form2"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Dim C3D As Integer
- Private Sub Timer1_Timer()
- C3D = C3D - 1
- Label1.FontSize = C3D
- If C3D = 1 Then Command1.Visible = False
- If C3D = 1 Then Command2.Visible = True
- If C3D = 1 Then Timer1.Enabled = False
- End Sub
- Private Sub Timer2_Timer()
- C3D = C3D + 1
- Label1.FontSize = C3D
- If C3D = 72 Then Command2.Visible = False
- If C3D = 72 Then Command1.Visible = True
- If C3D = 72 Then Timer2.Enabled = False
- End Sub
- Private Sub Command1_Click()
- Timer1.Enabled = True
- End Sub
- Private Sub Command2_Click()
- Timer2.Enabled = True
- End Sub
- Private Sub Form_Load()
- C3D = 72
- End Sub
-